;TITOLO: Accensione e spegnimento di led a due bit.
;ENUNCIATO: Il sistema provvede ad accendere o a spegnere cinque led
;	    secondo un ordine deciso dalle combinazioni fornite
;	    da due bit. Quando entrambi i bit sono alti si devono
;	    accendere tutti i led con una frequenza f.
;TABELLA ASSEGNAZIONE DELLE VARIABILI: P 3.0 (T1) = Ingresso primo bit
;				       P 3.1 (T2) = Ingresso secondo bit
;				       P 1.0 = 1 led
;				       P 1.1 = 2 led
;				       P 1.2 = 3 led
;				       P 1.3 = 4 led
;				       P 1.4 = 5 led
;|----------------------------------------------------|
;|		TABELLA COMBINAZIONI		      |
;|						      |
;|T1 = 0 Spegni tutti i led			      |
;|T2 = 0					      |
;|						      |
;|T1 = 0 Accendi D2, D4				      |
;|T2 = 1 Spegni D1, D3, D5			      |
;|						      |
;|T1 = 1 Accendi tutti i led uno alla volta	      |
;|T2 = 0 intervallati da un tempo di ritardo	      |
;|						      |
;|T1 = 1 Accendi D1, D3, D5			      |
;|T2 = 1 Spegni D2, D4				      |
;|----------------------------------------------------|


	$MOD51
	ORG 1000H
INIT:	SETB P1.0
	SETB P1.1
	SETB P1.2
	SETB P1.3
	SETB P1.4
	JB P3.1,T10
	JB P3.0,T20
	SETB P1.0
	SETB P1.1
	SETB P1.2
	SETB P1.3
	SETB P1.4
	JMP INIT
T20:	CLR P1.1
	CLR P1.3
	JMP INIT
T10:	JNB P3.0,T21
	CLR P1.0
	CLR P1.2
	CLR P1.4
	JMP INIT
T21:	CLR P1.0
	CALL RITARDO
	CLR P1.1
	CALL RITARDO
	CLR P1.2
	CALL RITARDO
	CLR P1.3
	CALL RITARDO
	CLR P1.4
	JMP QUI	
RITARDO:MOV R1,#100	;
RIT2:	MOV R2,#100	;
RIT:	MOV R3,#50	;
	DJNZ R3,$	;TEMPO DI RITARDO
	DJNZ R2,RIT	;
	DJNZ R1,RIT2	;
	RET
QUI:	NOP
	END

